//-------------Sonic CD R2 1 A CycPal Setup Script---------------//
//-------------------Scripted by Makasinaaaa------------------//
//-------Unpacked By Rubberduckycooly's Script Unpacker-------//

// Aliases
#alias Object.Value0	:	Object.Timer
#alias Object.Value1	:	Object.Timer2

// Priority
#alias 1	:	PRIORITY_ACTIVE


sub ObjectMain
	Object.Timer--
	Object.Timer2--
	if Object.Timer2 < 0
		Object.Timer2 = 40
	end if
	switch Object.Timer2
		case 40
			Copy16x16Tile(838, 749)
			Copy16x16Tile(839, 753)
			Copy16x16Tile(840, 745)
			Copy16x16Tile(841, 741)
			
			Copy16x16Tile(941, 733)
			Copy16x16Tile(953, 734)
			
			Copy16x16Tile(178, 725)
			Copy16x16Tile(179, 729)
		break
		case 30
			Copy16x16Tile(838, 750)
			Copy16x16Tile(839, 754)
			Copy16x16Tile(840, 746)
			Copy16x16Tile(841, 742)
			
			Copy16x16Tile(941, 735)
			Copy16x16Tile(953, 736)
			
			Copy16x16Tile(178, 726)
			Copy16x16Tile(179, 730)
		break
		case 20
			Copy16x16Tile(838, 751)
			Copy16x16Tile(839, 755)
			Copy16x16Tile(840, 747)
			Copy16x16Tile(841, 743)
			
			Copy16x16Tile(941, 737)
			Copy16x16Tile(953, 738)
			
			Copy16x16Tile(178, 727)
			Copy16x16Tile(179, 731)
		break
		case 10
			Copy16x16Tile(838, 752)
			Copy16x16Tile(839, 756)
			Copy16x16Tile(840, 748)
			Copy16x16Tile(841, 744)
			
			Copy16x16Tile(941, 739)
			Copy16x16Tile(953, 740)
			
			Copy16x16Tile(178, 728)
			Copy16x16Tile(179, 732)
		break
	end switch	
		
	
	
end sub
sub ObjectStartup
	Object[18].Type = TypeName[Block Animation]
	Object[18].Priority = PRIORITY_ACTIVE
end sub